home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / demos / d008.dms / in.adf / Squash_Procs.AMOS / Squash_Procs.amosSourceCode
Encoding:
AMOS Source Code  |  1991-02-11  |  616 b   |  31 lines
  1. Procedure PBOB_INIT[BANK,NCOL,MX,MY]
  2.    Shared PB_BANK
  3.    PB_BANK=BANK
  4.    S=Screen
  5.    Screen Open 7,MX,MY,NCOL,0
  6.    Screen Hide 
  7.    Screen S
  8. End Proc
  9. Procedure PBOB[N,D]
  10.    Shared PB_BANK
  11.    Dec N
  12.    A=Start(PB_BANK)+N*10
  13.    If Deek(A)
  14.       AB=Start(PB_BANK)+Deek(A)*2
  15.       SX=Deek(A+2)*16 : SY=Deek(A+4)
  16.       S=Screen : Screen 7
  17.       Unpack AB,0,0 : Get Bob D,0,0 To SX,SY
  18.       Screen S
  19.       AA=Sprite Base(D) : Loke AA+6,Leek(A+6)
  20.    End If 
  21. End Proc
  22. Procedure PBOB_END
  23.    Screen Close 7
  24. End Proc
  25. Procedure FAD_ALL[W]
  26.    For T=1 To W
  27.       Colour Back(Colour(0))
  28.       View 
  29.       Wait Vbl 
  30.    Next 
  31. End Proc